home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 10 / Amoszine 10 (Disk 3 of 3).adf / Amos_Procs.lha / mathssail.AMOS / mathssail.amosSourceCode
Encoding:
AMOS Source Code  |  1991-12-03  |  829 b   |  31 lines
  1. Print "enter x1 value";
  2. Input A#
  3. Print "enter x2 value";
  4. Input B#
  5. Print "enter y1 value";
  6. Input C#
  7. Print "enter y2 value";
  8. Input D#
  9. Print "                     ."
  10. Print "                    .:"
  11. Print "                   . :"
  12. Print "       C side     . y:A side"
  13. Print "                 .   :"
  14. Print "                .    :"
  15. Print "               . z   :"
  16. Print "              .......:"
  17. Print "              B side "
  18. Print ""
  19.  E#=D#-C#
  20. Print "A side equals=";E#;""
  21.  F#=B#-A#
  22. Print "B side equals=";F#;""
  23.  G#=Sqr((E#*E#)+(F#*F#)) : Rem PYTHAGORAS THEROM
  24. Print "The length of side C=";G#;""
  25. Y#=Cos(F#/G#)
  26. Degree 
  27. Z#=Acos(Y#)
  28. Print "angle z=";Z#;" degrees"
  29. Print "angle y=";180-90-Z#;" degrees(as interior angles of a triangle add up to 180 degrees"
  30. Rem to tes this program use  the numbers 2 for x1,6for x2,3 for y1 and 6 for y2
  31. Rem